home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / PHILY.CMD < prev    next >
Encoding:
Text File  |  1987-01-01  |  3.6 KB  |  163 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡PHILADELPHIA  NUMBERS╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Temple University    ║"
  39.    MESSAGE "                         ║  2 - Newtown Square       ║"
  40.    MESSAGE "                         ║  3 - Comm Net             ║"
  41.    MESSAGE "                         ║  4 - Scooter Scientific   ║"
  42.    MESSAGE "                         ║  5 - Communications  Net. ║"
  43.    MESSAGE "                         ║  6 - Philly NoChange      ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.  
  55.  
  56.    LOCATE 17,40
  57.    MESSAGE  " "
  58.    LOCATE 17,40
  59.    GET S5 1
  60.  
  61.    SWITCH S5
  62.  
  63.       CASE "1"
  64.          ASSIGN S3 "Temple University"
  65.          ASSIGN S4 "7876843"
  66.       ENDCASE
  67.  
  68.       CASE "2"
  69.          ASSIGN S3 "Newtown Square"
  70.          ASSIGN S4 "3560860"
  71.       ENDCASE
  72.  
  73.       CASE "3"
  74.          ASSIGN S3 "Comm Net"
  75.          ASSIGN S4 "6495422"
  76.       ENDCASE
  77.  
  78.       CASE "4"
  79.          ASSIGN S3 "Scooter Scientific"
  80.          ASSIGN S4 "9222541"
  81.       ENDCASE
  82.  
  83.       CASE "5"
  84.          ASSIGN S3 "Communications Network"
  85.          ASSIGN S4 "6495422"
  86.       ENDCASE
  87.  
  88.       CASE "6"
  89.          ASSIGN S3 "Philly NoChange"
  90.          ASSIGN S4 "7456277"
  91.       ENDCASE
  92.  
  93.       CASE "M"
  94.          CLEAR
  95.          LOCATE 5,20
  96.          MESSAGE "NUMBER TO DIAL:"
  97.          LOCATE 5,36
  98.          ASSIGN S3 "MANUAL DIAL"
  99.          GET S4
  100.       ENDCASE
  101.  
  102.       CASE "Q"
  103.          CLEAR
  104.          TRANSMIT "!@!"
  105.          WAITFOR "@"
  106.          TRANSMIT "D!"
  107.          WAITFOR "@"
  108.          CLEAR
  109.          LOCATE 1,0
  110.          PAUSE 1
  111.          EXECUTE "INTRO.CMD"
  112.       ENDCASE
  113.  
  114.       DEFAULT
  115.          MESSAGE "^G"
  116.          LOCATE 17,40
  117.          GOTO BEGIN
  118.       ENDCASE
  119.  
  120. ENDSWITCH
  121.       CLEAR
  122.       LOCATE 1,0
  123.       MESSAGE "CONNECTED TO PCP"
  124.       MESSAGE S1
  125.       MESSAGE "DIALING"
  126.       MESSAGE S3
  127.  
  128.  
  129.       TRANSMIT "ATZ!"
  130.       WAITFOR "OK" 10
  131.       TRANSMIT "ATDT"
  132.       TRANSMIT S4
  133.       TRANSMIT "!"
  134.       RGET S0
  135.       RGET S0 80 40
  136.       RGET S0
  137.       PAUSE 2
  138.  
  139.       FIND S0 "BUSY"
  140.       IF FOUND
  141.          CLEAR
  142.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  143.          PAUSE 2
  144.          CLEAR
  145.          LOCATE 1,0
  146.          GOTO BEGIN
  147.       ENDIF
  148.  
  149.       FIND S0 "CONNECT"
  150.       IF FOUND
  151.          SET PARITY NONE
  152.          SET DATABITS 8
  153.       ELSE
  154.          CLEAR
  155.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  156.          PAUSE 2
  157.          CLEAR
  158.          LOCATE 1,0
  159.          GOTO BEGIN
  160.       ENDIF
  161.  
  162.       ALARM 1
  163.       EXIT